home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act7 / 00717.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  1.6 KB  |  67 lines
  1. on defbuggy
  2.   global ogre, caranim, mouthindex, temp, phrases
  3.   set phrases to [:]
  4.   set phrases to [:]
  5.   set temp to []
  6.   set yyy to 1
  7.   repeat with xxx = 1 to 4
  8.     set dingus to the number of cast ("mouth" & xxx)
  9.     add(temp, dingus)
  10.   end repeat
  11.   set caranim to temp
  12.   set ogre to birth(script "buggyhead", 48, caranim)
  13. end
  14.  
  15. on talkyou soundname
  16.   global ogre, phrases
  17.   set the bugsound of ogre to soundname
  18.   sayit(ogre)
  19.   unLoadCast(soundname)
  20. end
  21.  
  22. on mydelay wholong
  23.   set ptime to the timer
  24.   repeat while (the timer - ptime) < wholong
  25.     updateStage()
  26.     if the mouseDown then
  27.       exit
  28.     end if
  29.   end repeat
  30. end
  31.  
  32. on sactivate snew, stuff
  33.   puppetSprite(snew, 1)
  34.   if listp(stuff) then
  35.     set the castNum of sprite snew to getAt(stuff, 1)
  36.     set the locH of sprite snew to getAt(stuff, 2)
  37.     set the locV of sprite snew to getAt(stuff, 3)
  38.     set the ink of sprite snew to getAt(stuff, 4)
  39.     set the type of sprite snew to getAt(stuff, 5)
  40.     set the stretch of sprite snew to getAt(stuff, 6)
  41.     set the foreColor of sprite snew to getAt(stuff, 7)
  42.     set the backColor of sprite snew to getAt(stuff, 8)
  43.   end if
  44. end
  45.  
  46. on sinfo sold
  47.   set stemp to []
  48.   add(stemp, the castNum of sprite sold)
  49.   add(stemp, the locH of sprite sold)
  50.   add(stemp, the locV of sprite sold)
  51.   add(stemp, the ink of sprite sold)
  52.   add(stemp, the type of sprite sold)
  53.   add(stemp, the stretch of sprite sold)
  54.   add(stemp, the foreColor of sprite sold)
  55.   add(stemp, the backColor of sprite sold)
  56.   return stemp
  57.   put stemp
  58. end
  59.  
  60. on makesiner
  61.   global variations
  62.   set variations to []
  63.   repeat with ddd = 1 to 64
  64.     add(variations, 4 * sin(ddd * PI / 32))
  65.   end repeat
  66. end
  67.